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Well how about this then. The November issue at the end of November, I 
don' t think Ihats bad actually, T know its lacking in content, but the 
Christmas issue should be full of goodies for everyone. 

Simon Pollard of Goole, North Humberside, has asked me to, mention that he 
is in the process of doing an arcade gome in BASIC, nice one Si, it is 
based on DOUBLE DRAGON II, the arcade game, and its called STREET PATROL, ■ 
Simon assures me that he will be putting the Ci6/+4*a BASIC capabilities to 
the test, hopefully, next month I will have a preview copy and more details 
about this game. 

The reason why this issue is only 13 pages is becuase I did' nt recieve much 
articles, but Peter Crack managed to help out on that, with his 2nd part of 
Trap The King and his Scroll Routine, which Simon Pollard wanted help on, 
well Si, I hope Peter has filled your requirements Cib that spell right??), 
thanks to Peter again, from myself and Simon. 

Guess what folks, no I have' nt wori the pools, no I have' nl got my college 
grant, no I can't spell, but I've Blown Up Hy Cf4, whata plonker, oh well 
its a good job I've 2 standby ClG's, to fall back on, so if anybody is 
interested in ttie -f 4 then offer me a price, John Hadlow, I think your were 
interested, if yes write. 

Well I' vs run out of gas, and can' I t Si ink of anything else, except sos for 
the slim mag, but December will be belter, and hopefully I have another 
Printer Ribbon. One last tfting, go on havt: a gaess at hew .Tiany members the 
club now has, yep a staggering 35 and its growing, many thanks to the 
newest members for Joining, but you have to agree, who else is supporting 
the C1G/+4 like I'm trying to do, and don't forget its Just me, and what 
will COBOL programming at college it can get a bit confusing and time 
consuming, so if your mag is ever late, please spare a thought, I'm slaving 
in my spare time to put together a aag, well the only mag for the 015/^4, 
so you must understand my position. I think I' 11 carry on talking, well 
members, I' a trying to set up a BOOK hire scheme, so if you have any C16/i-4 
computer books that you would s<rn (PLEASE NOT TO EXPENSIVE) then contact 
me please. I'm also trying to set up a ?D software scheme of my own, but 
mors details later. 

Right I w.ant your articles, because if you don't send, I can't print, and 
the mag stay cease to exist, so please keep* um coming, I want any C16/1-4 
related articles, so send, send, send. PPPPPPLLLLLEEEEAAASSE! ! ! ! ! 

Well folks what da ya think to the new front cover, very good eh? Well I 

thought so because I liked its or^iginai idea, but I need a few lessons on 

how to print out lectreseL, but I'll get there, eventually. Many thanks to 

James McBride of Middlessex, I hope you like the tapes, any problems 

contact me. 

One last thing, sosie of the nemb^^rs have been a^^klng about the 

quest ionaires, re, REQUEST for theji L o be reLunrned, New members need not 

worry about these, they were for those who Joined in i\pril 1 959. 
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■■■...TRAP THE KING PART TWO.... 

LAST MONTHS SECTION COULD BE RUN AND 
VIEWED, NOT SO THIS MONTHS ADDITION, 
ONCE YOU HAUE TYPED IT IN SAME IT! ! 
IT WILL NOT RUN BECAUSE MCST OF THE 
SUB ROUTINES ARE MISSING (THEY UIll BE 
IN PART THREE). 
THIS IS HOU THIS PART RUNS, 
135E-1360 STORES THE NUMBER OF TYPES OF 
PIECES IN $D6=(*$01-*$04). 
1362-1364 STORES THE INDIVIDUAL PIECE 
NUMBER IN $E7=(*$00-*$23). 
1366-1369 STORES THE ASKEY CHARACTER 
NUMBER FOR THAT GROUP OF PIECES IN $M 
(**63-*$6F) *$6B=Y0UR INFANTRY. 
136A-1372 SET DECIMAL MODE, THE COMPUTER 
NQU COUNTS IN BASE TEN (0-9). AND 
INCREASES THE TURN COUNTER BY ONE. 
THE POSSIBLE RANGE OF TURN NUMBERS IS 
1-99. THEN STARTS AT ONE AGAIN. 
1373-1382 PUSH COPY OF TURN COUNTER ON 
TO STACK, MOUE THE FOUR RIGHTMOST BITS 
IN THE BYTE TO THE LEFT FOUR PLACES 
CLEARING THE RIGHT FOUR BITS A3 IT DOES 
SO, MIX IN nSS TURNING IT INTO AN ASKEY 
CODE FOR A 7>(UMBER,AND PRINT IT IN THE 
TENS COLUMN OF THE TURN COUNTER DISPLAY 
ON THE SCREEN. PULL THE TURN COUNTER BYTE 
OFF THE STACK, CLEAR THE FOUR LEFTMOST 
BITS RETAINING THE OTHERS, MIX IN #$30 
AND STORE IT IN THE UNITS COLUMN, GIVING 
A DISPLAY FROM 01 TO 99. 
1335-1392 GROUP OF NESTED FOR NEXT LOOP 
COUNTERS. LOAD X REGISTER WITH NUMBER 
OF DIFFERENT GROUPS OF PIECES, PUSH COPY 
ON THE STACK, LOAD Y REGISTER WITH NUMBER 
OF PIECES WITHIN GROUP, PUSH A COPY ON 
THE STACK, LOAD Y REGISTER UITH ThE 
NUMBER or MOVES FOR EACH PIECE. AND PUSH 
THIS ONTO THE STACK. 

1393 GET P03GITIGN $Di A:-!D $d2 ARE THE 
REGISTERS THAT WILL CONTAIN THE COORDS 
$D2 CONTAINS THE UP AND D0^.:N COORDINATE 



. 13511 


A9 04 - 


--LDA ■fr$04 


. 1360 


85 D6 


■■ STA *D6 


- 1362 


A2 00 ■ 


LDX *$00 


- 136 4 


86 E7 


STX *E7 ■ 


- 13 66 


A9 6B 


LDA #*6B 


. 1363 


85 r>0 


STA i>T>0 


. 136 A 


FB 


S£1? 


= 13 6£i 


13 


CLC 


. 136C 


A5 D9 


L D A 5 D 9 


. 136E 


69 01 


ADC #*L^1 


. 1370 


85 D9 


STA $1)9 


. 13 72 


D3 


CLE- 


1373 


48 


PHA 


1374 


4A 


LSR 


1375 


4A 


LSR 


13 76 


4A 


LSR 


1377 


4A 


LSR 


1373 


09 30 


ORA *$30 


137A 


SD C5 0F 


STA $0FC5 


137D 


63 


PLA 


157E 


29 0F 


AND t*0F 


1330 


9 30 


ORA * * 3 


1382. 


yD €6 0F 


STA *0FC6 


1335 


A6 D6 


LDX $D6 


138 7 


8A 


TXA 


13 33 


43 


PHA 


1339 


BC 57 22 


LDY *2257^x 


133C 


98 


TYA 


133D 


43 


PHA 


13 3E 


BC SC-i 22 


LDY *225I-t,X 


1391 


93 


TYA 


13 92 


43 


PHA 


1393 


20 A2 20 


JSR $20A2 


1396 


A5 D2 


LDA $D2 


1398 


D0 04 


BNE $139E 


139A 


63 


PLA 



139B 4C 43 14 JHP '■;1443 

139E 20 B2 2'3 JSR ^20B2 

13Ai 20 i$0 IE JSR $1.E00 

13A4 20 00 iP J3R ^:F00 



IF A PIECE IS MISSIN'G THEN BOTH WILL 

CONTAIN ZERO 

1396-i39B CHECK IF PEICE IS MISSING IF 

VES THEN GOTO COMPUTERS HOVE 

139E HOME CURSOR TO NEW POSSITION 

13A1 CHECK ADJACENT SQUARES FOR ENEMY 

DIAGONALLY AND REVEAL CONTENTS. 

i3A4 DO THE SAME FOR ADJACENT SQUARES 

UP, DOWN, LEFT AND RIGHT (SQUARE CHECK). 

13A7 THERE ARE LESS THAN TWO COMPUTER 

PIECES NEXT TO THIS ONE. 

13A9 THERE IS MORE THAN ONE COMPUTER 

PIECE NEXT TO THIS ONE. 

i3AC RESET CURSOR TO YOUR PIECES COORDS 

13AF-13eE STORE YOUR COLOUR IN COLOUR 

REGISTER, PRINT COLOUR FLAHS IN THIS 

SQUARE, REPRINT YOUR CHARACTER IN THIS 

SQUARE TO HAKE IT FLASH. RETURN CURSOR 

TO YOUR SQUARE (EVERY TIME JSR$FFD2 IS 

CALLED AND A PRINTABLE ASKEY CODE IS 

USED THE CURSOR IS AUTOMATICALLY MOVED 

ON OfiEl CHARACTER SQUARE, HENCE THIS 

ROUTINE). 

13Ci CHECK IF MOVING PIECE IS A GUN. 

13C4-13CA STORE A COPY OF PRESENT (OLD) 

COORDINATES IN $D3,$D5. . 

13CC-i3D2 LOAD OLD COORDINATES FROM $D3 

*-35 TO *D1,$D2 THIS MAY SOUND SILLY BUT 

IF THE ^Uti'.FJtl:- NEXT MOVE CANNOT BE 

MADE THE PROGRAMME RETURNS TO $i3CC AND 

LETS YOU TRY AGAIN. 

i3D4-13EL^ CHECK IF 'ESC KEY HAS BEEN 

PRESSED, IF SO END PROGRAMME RIGHT NOW. 

DO NOT USE THIS KEY UNLESS YOU ARE FED 

JP WITH THE GAME. 

t3E6-140C CHECK FOR THE 'E' 'D' '3' 'X' 

AND 2ER0 KEYS, AND UPDATE 5Di,'^D2 

COORDINATES ACCORDINGLY. 

l43E-i413 IF THE ZERO KEY WAS USED PULL 

THE NUMBER OF NOVES COUNTER OFF THE 

)TACK, DISCARD IT AND FORCE BRANCH TO 

:OMPUTERS MOVE. 

JjfjT W,"/ii;- mir-C,-r- -rr, ,\,-:; .--i-* 

'-"^^ •.u,.. ^;j:.t;L,\ I Li -J^W bQL'AKL. 

i4ii5 CHECK TO SEE IF IT IS EMPTY „ 
\^IQ NO ITS NOT SO TRY AGAIN. 



- 13A7 90 03 BCC 1il3AC 

- .13A? 4C 70 IE JMP $1E70 

- 13AC 20 E2 20 JGR $20B2 

- 13AF A9 53 _ LDA f$53 

- i3Ea 8D SB 05 STA *053B 
. 13E14. A?' 82 LDA #$82 

- 13&6 20 D2 FF JSR $FFD2 

- 13B9 A5 D0 LDA *D0 

- 13BB 20 D2 FF JSR $FFD2 

- 13BE 20 B2 20 JSR $20B2 

- 13C1 20 80 IF JSR $iF80 
■ 13'-^ A5 Di LDA $D1 

- 13C6 85 D3 STA $D3 

- 13CS A5 D2 LDA iD2 

- 13CA 8^ D5 STA $D5 
. 13CC A5 D3 LDA $D3 

- .t3CF 85 Dl STA $Di 

- 13D0 A5 D5 LDA $DS 

- 13D2 85 D2 STA $D2 

- 13D4 20 E4 FF JSR $FFE4 
. 13D7 F0 FB BE'::^ $i3D4 
. 13D9 C9 IB ^ CMP #$1B 

- 13DB D0 09 BNE *13E6 

- 13DD 20 00 20 JSR $2000 

- 13E0 00 BRK 



- 13E1 EA 

- 13E2 EA 

- i3E3 EA 
■ 13E4 EA 



- 13E: 



:a 



NOP 
NOP 

N F 

NOP 

*.i n c- 



- 13E6 C? 45 CMP f^^5 

. 1-3EQ D0 05 BNE fH3EF 

. a3EA C6 D2 DEC $D2 

- 13EC 38 SEC 

- 13ED B0 23 BC^3 *i412 
. 13EF C9 44 ■ CMP *$44 

- 13F1 D0 05 BNE i>13FB 
. 13F3 E6 Dl INC *Da 

" 13F5 38 SEC 

. i3FA B0 lA BC3 $1412 

■ 13F3 C9 53 CMP #i^53 

.. 13FA D0 05 BNE $1401 

" 13FC C6 Dl DEC $D1 

" :13FE 38 SEC 

- 13FF B0 li BCS $1412 



141A YES IT IS SO MOVE THERE. 
141D-142B MOVE CURSOR TO OLD PQSSITIOH 
(SQUARE JUST LEFT) PRINT UNFLASH AND 
SPACE CHARACTERS. 

_142E-1433 PULL MOVE COUNTER OFF STACK, 
DECREASE IT, IF IT IS NOW ZERO THEN THAT ,_.-- 
WAS THE LAST HOVE, IF NOT THEN BRANCH 
BACK AND HOVE AGAIN, 



1407 38 



HINT.... IF YOU tlANT TO HOVE YOUR PIECE 

NEXT TO TWO OR MORE COMPUTERS PIECES 

DO IT ON ITS LAST MOVE AS THE CHECK 

AROUND ROUTINE IS ONLY DONE AT THE 

BEGINING OF EACH HOVE!!!! 

1436-1440 MOVE CURSOR TO NEXT POSSITION 

PRINT UNFLASH AND YOUR CHARACTERS. 

1443-144F CHANGE POINTERS TO COMPUTERS 

VALUES (START OF COMPUTERS MOVE). 

1451-1457 LOAD NUMBER OF MOVES FOR THIS 

PIECE AND PUSH A COPY ONTO THE STACK 

1458 GET POSSITION. 

145B-145D IS IT MISSING? 

145F YES IT IS. 

1462 NO IT IS NOT!, SO MOVE CURSOR TO 

THE CORRECT POSSITION. 

1465-146F PRINT SPACE IN THAT POSSITION 

AND LOAD SCREEN COLOUR INTO COLOUR REG. 

REMEMBER, WHEN THE COMPUTER IS MOVING A 

PIECE WETHER IT CHANGES POSSITION OR 

NOT IT ALWAYS DISSAPEARS. 

1470 MOVE CURSOR BACK TO MOVING PIECES 

POSSITION. 

1473-1484 CHANGE CONTENTS OF $2!3E8,$20E9 

*20EA TO READ JMP$1DD0. $E0=NUMBER OF 

EMPTY SQUARE ADJACENT TO COMPUTERS 

MOVING PIECE (SQUARE ON NOT DIAGONAL) 

14S6 CHECK AROUND (SQUARE ON ONLY). 

1439-1493 CHANGE CONTENTS OF'$20E8, 

t20E9,$20EA TO THEIR ORIGINAL VALUES 

THIS ALLOWS THE ROUTINE BEGINING AT 

flF00 TO BE USED BY BOTH YOURS AMD THE 

CMPUTER3 TURN ROUTINES. 

1496-i49C CHECK FOR NUMBER OF YOUR 



. 1401 C9 SB ChP *$58 

- 1403 D0 05 BNE *140A 

- 1405 E6 D2 INC $D2 

SEC 

. 1408 B0 08 BCS *i412 

- 140A C9"30 ^>. CHP **30 

- 140C '1)0. BE. BNE $13CC 

- 140E 68 PLA 

- 140F 38 . SEC 

. 1410 B0 24 BCS $1436 
. 1412 20 BZ 20 J^ *20B2 
. 1415 20 BC 20 JSR $20BC 

- 1418 B0 B2 BCS *13CC 
. 141A 20 78 20 JSR $2073 
. 14iD A6 D5 LDX $D5 

- 141F A4 D3 LDY $D3 

- 1421 20 B6 20 JSR $20B6 
. 1424 A9 84 LDA '*$34 

. 1426 20 D2 FF JSR $FFD2 

- 1429 A9 20 LDA *$20 

. 142B 20 D2 FF JSR $FFD2 

- i42E 68 PLA 

- 142F A8 TAY 
. 1430 88 DEY 

- 1431 F0 03 BEQ $1436 
. 1433 4C 91 13 JMP $1391 

- 1436 20" B2 20 JSR $20B2 

- 1439 .A9 84 LDA *$S4 

. 143B 20 D2 FF JSR $FFD2 
. 143E A5 D0 LDA $D0 

- 1440 20 D2 FF JSR $FFD2 
. 1443 A5 D0 LDA $D0 

- 1445 38 SEC 

. 1446 E9 04 SBC #$04 
. 1448 85 D0 STA $D0 

- 144A A5 E7 LDA $E7 

- 144C 13 CLC 

- 144D 69 12 ADC *$12 

- 144F 85 E7 STA $E7 

- 1451 A6 D6 LDX $D6 

- 1453 BC 5B 22 LDY $225B,X 
. 1456 98 TYA 

- 14 57 4 3 I^KS 

u 1458 20 A2 20 JSR $20A2 

- 145B A5 D2 LDA $D2 



(*I?F' CONTAINS NUMBER OF). 
■^-14?E-14A0 CHECK FOR ESCAPE ROUTES ($E0 
CONTAINS NUMBER OF), 

14A2-14A4 IS COMPUTERS KING TRAPPED?. 
14A6 NO. 

14AS-14AD YES! I MODIFY PRINT ROUTINE 

AT *1D00 PRINT KING AND ALL OTHER ACTIVE 

COMPUTER PIECES AND SURRENDER <YQU WIN). 

14B0-14B2 PIECE TRAPPED IS NOT KING. PUT 

RTS IN $1EA5. 

i4B5 PIECE SURRENDERS!! 

14BS-14BA PUT ORIGINAL VALUE BACK IN 

TO *1EA5. 

14BD UPDATE SCREENC 'ENEMY LEFT' )DISPLAY. 

14C0-14Ci COMPUTERS PIECE HAS'FOUND'QNE 

OF YOURS, SO, PUT 'FOUND' COORDINATES INTO 

$D7,$DS SO THAT OTHER COMPUTER PIECES CA 

CAN COME AND HELP 

14C8 IS MOVING PIECE COMPUTERS KING?. 

IF 'YES' THEN IT MUST CONTINUE TO MOVE. 
14CB-14D1 SAVE PRESENT POSSITION FOR 
BACKTRACK AND ABORTED MOVE RELOADS. 
14DS-1508 CHECK WHICH WAY COMPUTERS 
PIECE HAS TO MOVE TO BRING IT ALONGSIDE 
'FOUND' PIECE AND TRY TO MOVE IN THAT 
DIRECTION, PROVIDED THIS DOES NOT MEAN 
MOVING BACK ON ITSELF (BACKTRACKING). 
1510 IF ABOVE MOVE IS NOT POSSIBLE THEN 
GET 'PRESENT' COORDINATES. 
15i3-151D SET RND GENERATOR LIMITS AND 
^ET RND NUMBER. 

t520-152E MULTIPLY RND NUMBER BY TWO 
:ASL) mix IN #$E3 AND STERE IT $1527 TO 
:REATE a INDIRECT JMP ADDRESS-THIS 
;OMMAND WILL EXPECT TO FIND (IN THIS 
:ASE) THE LOW HALF IN BYTE NUMBER $22E0 
iND THE HIGH HALF OF THE ADDRESS IT IS 
OING TO JUMP TO IN $22Ei. IF YOU CHECK 
EMORY LOCATIONS $22E0-$22E7 THEN YOU 
ILL FIND THE FOLLOWING HEX VALUES:- 
9.15.31.15.39.15.41.15 THIS EQUALLS 
DDRESSE5 $1529, $1531 ,$1539, AND $1541 
^ESE ARE THE START ADDRESSES OF THE 
3UR POSSIBLE MOVE ROUTINES FOR THE 



. 145F 4C 88 15 JMP $1588 

- 1462 20 B2 20 JSR $20B2 
. 1465 A9 20 LDA *$20 

- 1467 20 D2 FF JSR $FFD2 
. 144A A9 05 LDA #$05 

- 146C 8D 3B05 STA *053B 
. 146F EA ; ./^, NOP 

- 1470 20 B2 20 JSR $20B2 

- 1473 A9 AC LUA ■*$4C 
.. 1475 8D Ea 20 STA *20E8 
. 1478 A9 D0 LDA #$D0 

- 147A 8D E9 20 STA *20E9 

- 147D A9 ID LDA *$iD 

. 147F 8D EA 20 STA $20EA 
■ 1482 A9 00 LDA #$00 

- 1484 85 E0 STA $E0 

- 1486 20 00 IF JSR $1F00 
. 1439 A9 20 LDA *$20 

- 148B 8D E3 20 STA $20E3 

- 148E 8D EA 20 STA $20EA 

- 1491 A9 B2 LDA #$B2 

- 1493 8D E9 20 STA $20E9 

- 1496 A5 DF LDA $DF 

- 1498 F0 31 BEO *14CB 
. 149A C9 02 ChP *$02 

- 149C 90 22 . BCC *14C0 

- I49E A5 E0 LDA $E0 

. 14A0 D0 29 BNE $1405 

- .14A2 A5 E7 LDA $E7 

- 14A4 C9 23 CMP *$23 

. 14A6 D0 08 BNE $14B0 

- 14A8 A9 C0 LDA *$C0 

- 14AA SD 04 ID STA $1D04 
. 14AD 4C 71 ID JhP $1D71 

- 14B0 A9 60 LDr^ *$60 

- 14B2 8D A5 IE STA *1EA5 
. 14B5 20 71 IE JSR $1E71 

- 14B8 A9 E0 LDA *$E0 

- 14BA 8D A5 IE STA $1EA5 

- 14BD 4C E9 ID JMP $1DE9 

- 14C0 A5 Dl LDA $D1 

- i4C2 85 D7 STA $D7 

- 14C4 AS D2 LDA $D2 
. 14C6 85 D8 STA $DB 

- 14 C 8 20 r.7 in .fqp <!;inr-7 



1529-1543 FOUR HOVE ftOUTI^€S ONE WILL BE 
CHOSEN AT RANDOM (SEE ABOVE), 
BACKTRACKING IS CHECKED, 
1546 IF THE RNB MOVE CANNOT BE MADE GET 

ORIGINAL COORDINATES AND TRY 

1549-1563 TO MAKE FIRST AVAILABLE MOVE 
STARTING WITH UP THEN DOWN THEN LEFT 
THEN RIGHT BUT ALWAYS CHECK BACKTRACKING 

1569-1581 STILL NO GOOD? O.K. TRY 

THE SAME AGAIN BUT DISREGARD BACKTRACK 
1583 'CANNOT MOVE EH?',,,, WELL THEN,,, 
STAY PUT!!!. 

15S3-15SD WAS IT LAST MOVE?. 
1590-159E YESM SO RESET POINTERS FOR 
PLAYERS MOVE, WHILST AT THE SAME TIME 
INCREASING *E7(PIECES INDIVIDUAL NUMBER) 
AT *144D UE ADDED HEX #$12 ,S0 NOW WE 
SUBTRACT HEX **11 N£T GAIN=HEX *$01 

15A2-15A9 WAS IT LAST PIECE IN THIS 
GROUP. 

15AC-i5B6 WAS IT LAST GROUP, 
15BS YES IT WAS SO START ANOTHER TURN, 
15C0-15E6 ROUTINE TO PRINT (REVEAL) ALL 
■ REMAINING COMPUTER PIECES. 

i5EB-15EE ROUTINE FOR ENDING COMPUTER 

PIECES MOVE. JSR$1D8E GOES TO A ROUTINE 

WHICH, AS ITS LAST ACTIONS PULLS THE LAST 

TWO BYTES OFF THE STACK (THESE ARE THE 

LAST JSR COMMANDS RETURN ADDRESSES) AND 

THEN JUMPS TO $1583. 

I HAVE USED THIS METHOD BECAUSE THE 

*1DSE ROUTINE IS ENTERED SEVERAL TIMES 

AND WAYS AND IT IS THE ONLY WAY I COULD 

KEEP THE STACK POINTER IN THE RIGHT 

PLACE, BEARING IN MIND THAT THE WHOLE 

ROUTINE FROM $135E TO $15BB IS A SERIES 

OF NESTED LOOPS. 

O.K. THATS PART TWO COMPLETED 

AS ALWAYS EITHER PHONE ME, OR WRITE 

IN TO THE MAGAZINE, 

I SHALL SUBMIT PART THREE FOR THE 

NOVEMBER ISSUE AND FOR DECEMBER PART ONE 

OF "BLOOPING BUG' A SPRITE PROGRAMME 

FOR THE +4 ,C16 C116 WITH 64K, 
c M n 



14CB 
14CD 
14CF 
14D1 
14D3 
14D4 
14D5 
14P6 
14D7 
14Da 
14DA 
14DC 
14DE 
14E0 
14E2 
i4E5 
14E6 
'l4E3 
14EB. 



A5 Dl 



E5 
D2 
E6 



85 
A5 
85 
EA 
EA 
EA 

EA"' 

EA \ 
A5 1)7 
C5 Di 
F0 12 
10 0B 
C6 Dl 
20 80 ID 
33 

B0 08 
20 CB IE 
E6 Dl 



LDA *D1 

STA $E5 

LDA $D2 

STA $E6 

NOP 

NOP 

NOP 

NOP 

NOP 

LDA *D7 

CMP *D1 

BEg *14F0 

BPL *14E3 

DEC *D1 

JSR $1D80 

SEC 

BCS $14F0 

JSR $1ECB 

INC *D1 



14ED 20 80 ID JSR *1D80 

14F0 20 CB IE JSR *iECB 

14F3 A5 D3 LDA $D8 

14F5 C5 D2 CMP $D2 

14F7 F0 17 BEQ $1510 

14F9 10 03 BPL $1503 

14FB C6 D2 DEC $D2 

14FD 20 80 ID JSR $1D30 

1500 38 SEC 

1501 B0 0D BCS $1510 
1503 20 CB IE JSR $1ECB 
1506 E6 D2 INC $D2 
1503 20 80 ID JSR $1DS0 
150B EA NOP 

150C EA HOP 

150D EA NOP 

150E EA NOP 

i50F EA NOP 

1510 20 CB IE JSR $1ECB 

1513 A9 00 LDA #$00 

1515 8D 3D 20 STA $203D 

1518 A9 04 LDA #$04 

151A 8D 39 20 STA $2039 

i51D 20 30 20 JSR $2030 

1520 0A A5L . 



? 



15.21 09 E0 ORA *$E0 

1523 8D 27 15 STA *1527 

1526 6C E2 22 JMP <$22E2) 

1529 C6 D2 DEC $D2 

152B 20 80 ID JSR *iD30 

152E 38 SEC 

152F B0 15 BCS $1546 

1531 C6 Dl DEC *D1 

1533 20 80 ID JSR $1D30 

1536 38 SEC 

1537 B0 0D BCS $1546 
1539 E6 Dl INC $D1 
153Et 20 80 ID JSR $1D30 
153E 33 SEC 

153F B0 05 BCS $1546 

1541 E6 D2 INC $D2 

1543 20 80 ID JSR $1D30 

1546 20 CB IE JSR $1ECB 

1549 C6 D2 DEC $D2 

154B 20 80 ID JSR $1D80 

154E 20 CB IE JSR $1ECB 



C6 Dl 



DEC $D1 



1553 20 80 ID JSR $1080 
1556 20 CE IE JSR $1ECB 
1559 E6 Dl INC $D1 
155B 20 80 ID JSR $1030 
155E 20 CE IE JSR $1ECB 
1561 E6 D2 INC $D2 
1563 20 80 ID JSR $1D80 
1566 20 CB IE JSR $1ECB 
1569 C6 D2 DEC $D2 
156B 20 68 ID JSR $1D63 
156E 20 CB IE JSR $iECB 
1571 C6 Dl DEC *D1 

20 68 ID JSR $1D68 
20 CB IE JSR $1ECB 
E6 Dl INC $D1 
20 63 ID JSR $1068 
157E 20 CB IE JSR $1ECB 
1581 E6 D2 INC $D2 
1533 4C E8 15 JHP $15E3 



1573 
1576 
1579 

157B 



- 1536 


EA 


NOP 


. 1587 


EA 


NOP 


1583 


63 


PLA 


1589 


A3 


TAY 


153 A 


83 


" DEY 


15SB 


F0 03 


BEg $1590 


153D 


4C 56 14 JMP $1456 


1590 


A5 00 


LDA $D0 


1592 


18 


CLC 


1593 


69 04 


ADC *$04 


1595 


85 00 


STA $00 


1597 


A5 E7 


LOA $E7 


1599 


33 


SEC 


159A 


E9 11 


SBC *$11 


159C 


85 E7 


STA $E7 


159E 


EA 


NOP 


159r 


EA 


NOP 


15A0 


EA 


NOP 


i5Al 


EA 


NOP 


15A2 


63 


PLA 


i5A3 


A3 


TAY 


15A4 


83 


DEY 


15A5 


F0 05 


BEQ $15AC 


15A7 


A6 D6 


LOX $D6 


i5A9 


4C 3C 13 


JMP $133C 


15AC 


68 


PLA 


15AD 


AA 


TAX 


15AE 


CA 


DEX 


15AF 


F0 07 


BEQ $15B3 


15B1 


C6 06 


DEC $06 


i5B3 


C6 00 


DEC $00 


15B5 


4C 87 13 


JMP $1387 


i5B8 


4C 5E 13 


JNP $135E 


15 BE 


EA 


NOP 



._2Sa HN$="Cl^CEOC5 <;R3EREV,iON:]NORTHERN Lit 



-^£10 PP$=';C1 Ci;0[5::CR3CI:'fiRK,BLUE3CREV/ONl 



/7 REM * EV KEVIN WHEALS -iO'vlgSS * '-■-■ 
:S REM **************************** 




-^^;3yiCT0RIA LI^NECREV^OFFJ C white: 'V^,; ;■ -; . ■ ::^ ;". 

:;;23e CH^^^-'CI^ CE-KS^CRJCRErOVOU CnN INTERS 
.JiftNGE ;WITH BRITISH f^:AILrWHITEP* . - - ,. 

-240 Lo$="ci -.croci? .cr:ered3i:shift,m]ci c 

EOC2 CL]tCEM,T 3 TIMES^Cl CT0E3 'CLDlCEH, 
<£ 3 TIMESKl CIi]C2 CLD CSH IFT,M3CWH1 TE: " 



-2T0 ER$="E1 CDDCS CR^CREIOERITISH RAIL L 
; INK LINE[WHITE:".^-,.....i.-. ■■..,.:.:■. fj 

269 PRINT"CCLEAR]C12 CD3ES CRDFLEASE WA I 
. ,T READING ,PATA"._-; ■-.■,/.;.;... ^. .,/..:] ., , , 

'. 279 F0RH=8T027e:REAE'S$CX> ;NEXT 



2S0 FOR;>i=0TO21:REAE'SX$<X) :NEXT : 

. . t " 

250 E = 0:C = B:CR = a:E' = 0:EX = 0:J = 0:M = 0:E-e:N = 
; p=8 : V=0 : CH=S : L=0 : BR=0 

309 PR INT." C CLEAR] ".: COLORS , i :C0L0R4 , 1 : COL 

31S PRIHT"C3 CR:*LONE'ON UNDERGROUND TUBE 
STATIONS*" ^ - 

320 PRINT ., - - 

33S F0RX=eT012:PRINTSPC<ie)':PRINTSX$<H) : 
iSLi'i T 

340 PRINTRR^^; :PRINTSPC<12);"E2 CIO ". 
350 PRINT0G!^;"E3 SPACES] A-B" 

360 PRINTSPCC12);00$;"C3 SPACESDE-C" 
370 P^RINTSPC(12;< ;00$;"C3 SPACESDC-D-E" 







«-v." . ■.-■'-'t-^;''' - .- ■ ■"*■ ■ -'^-'^^ ■■■,':■■";■;■ --^ ie^-:iV?H\.--^- -'.-■ <-.-'■ ■■"" 
j\2e DIM3W'C270;'75X$^(21> ;A$ C21> Je^ C2inC3: (, 

:.;-trrD*(2i> ■ ■'n'./Vv .- -r^rli'^;;: "'-■:-• 

.^^;3a-r'INE$C21) ,F$(21),G^<21)iH$<21),-, :■ : ■ 
4S E'IKI$C21) ,J$(21) ,K$C21>_;.>:.,-,\.^.^ ,,;..- 

5S DiNLi(2i)"-,z$a3)"--;--^Sj?^:^-vA^- "'■ 






60 G!0$="E3PnCElSTATIONS" ■■:"'--..;-:::^-" 

■70 RR$="CH0ME3Cl"tD:'V..'.^^^^^S;^-:^-"' 
80 *XX$="Ei CEOES' CR3PRESS 'l^^'KEV TO RETL^ 

:n TO MAIN MENU" ^,^■^".■^-,;,v..:^,.:^:;^.•■\ •-''■-- 

■ 90 UU$ = "ECLEAR-K10 -CR3UNDERGR0UNE STATIC; 

> 188 XLi='*-ECLEAR]**********0HDERGROUNI:' ST 
^'-ATI0N*******:***E3 CDJCie ,.CR3"^.-:- "- 



■lie LL$='"E3 CR3CH00SE A KEV -BETWEEN <0-S 

^) OR (A-L)" ■ r:-^ .:/.:;.<||^'^^::" ,;■-,. - 

128 EE$="Ei CD]E5 CR3 EER0WN]EREV,0H3EAKE 
RLOO L INEEREV . OFF] EWH I TE] ':.... V-- 

130 CCS="E1 CE0E5 CR]ERED]EREV>ON]CENTRA 
L LINECREV,OFF]EWHITE]",;;; , 

140 CRS="E1 CEOE5 CR] E VELLOW] EREV, 0N3CIR 
CLE LINEEREV^OFFDEWHITE]" , 

150 rjE'S="El CEOE5 CR] CGREEN] EREV , ON]I:' 1ST 
RICT LINEEREV,OFF]EWHITE]" 

169 EXt=:'Cl CEOEl CR] EGREEN] EREV, ONDDlWH 
ITE]IEGREEN]SEWHITE]TEGREEN]REWHITE]ICGF. 
EEM]CEWHITE3TEGREEN]ESPACE]EWHIT£]LE0REE 
N3IEWHITE3HEGREEN3ECREV,OFF3EWHITE3EXHI£ 
ITION SERVICE ONLV" 
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530 IF2f="?"THEN'50T014^e 



540 IF2^="4"THErJG^T01720 \ 



^SV' ' .' 



550 lF2f = "5 'THENGCTOlSSe ^^ ■'I v 

560 IF2$= 6'JHEriG:TC22be "^ -" ^ 

V ^ ^ , 

57H IF2t='7 THENGOTCZ^SO 

580 IFZ^="8' THEriG:Ty2CSS ' 

59U IF2$= '9 THEriGCTCGOTD 

6G0 IF2^= h THEriGrT'.3S4C 

618 IF2$="E"THENG0T03bie ;, 

620 1F2$=;'C"Th'eNGOT038S8 ' '": ■ '■-'{■-- 

63B GOTO290 ;; .' ". 

640 GOSUB4020 ' ' ■ 

659 F0RV=3T021:F'RINTSPC<2> ;S*(V) :NE'-a 

■ . ■ ■ ■■ -Bi^-'-":-- -' . - '■ ■■ 

660 PRINTLLt ^^t^^'- ■/ - \ 
670 GETA:$: IFA$=""THENb70 



680 IFfit = "0"THEHA^=S$<B) :PRINTCLf ; A^ : G^TO 
44'30 . / ■' , ' \ 

690 IFA$ = "l"THENA5=Sf (1) ;PR INTCLf ;AS : GOTO 
4410 - 

■ .' • . I ' . 

''9?J'^"*="2"THENAS=SS(2> :PR INTCLf ; n5 : GOTO 



3E0 FF INTEF<„C12^ ,GOf ;':,IS SPnCE53E-F-G 
350 PPirJT5F'.<12-,0Q$/'l3 SF^CES^N-h' 






-c^ 



-, ^ A, A 

410 FFINTE = C(12.,G0?/:E3 Sf^lEBlL-V-U 
420 FRiriTCPC<12^\c.C!t,"r3 SFACE"1N-C-P 

4:0 FFiriTiFCdl" .CC?/'!; SFf^CE^DF-C-^-- 

44u -FFirnsp.ciz^.CQt/'rs S'='^^cebis 

.450 PRINTSPC(12) ;0Q$;"I3 SPACESIS-T-U-V" 
460 PRINT3PC'(12> iQQ^ ;":'i3 SPACES3V-W". 
470 PRINTSPC(12) ;0Qt,"i:3 SPACESDW" 

4S8 PRINT :PRINTTAE(3> ;*'CHOOSE A KEV EETW 
EEN (0-5) OR (A-C)"^-.' -■• ■ - 

490 >ET2*: IF2$ = '•'•THEN49e^pV^■;■:^V^ S^- J 

500 IF25-="e"THENGOJ'O640 "V- ;:. 

510 IF2$="1"THENGOT0918 "' 

- ' ■- " ' y> ■ 

520 IF2$="2"THENG0T011Se 



f: ^ -31 ci €^> r- L^ ^ > e. t 
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Dear Sir 

Could you please let me know how to; PLOT; PRINT @ on thy C16/-f4 

ThosG cornmands are used by my ORIC ATMOS and I would like to ruii them on 

the CI 5. 

Yours faithfully 
Peler Appleby. 

, ,r ,'^%,'n '■' , '"" """'™ ^"'"'''"' ■"' ^'^'^'^ '■ '"' '° '•■°"^<J ''LOT a d^l 
'•I. 10, W (JO pixlt;, down i 10 pi:<nn, across). As [or PRINT P, well yn.j 
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firs 


t ver 


« 




1010 


-1012 


1015 


-1034 


« 




* . 




1036 


-105F 


103B' 


-103E 


1044' 


-1047 


104D 




1053 




1056- 


-105B 


4* 
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- 
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1061- 


-1063 


« 




1065 




1068 




106B 




* 




106D- 


-108D 


106D- 


-1070 
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ii 
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* 
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1073 




1075- 


-1076 


1077- 


■107A 


107E- 


•107E 


107F- 


■1081 


* 




1083- 


■1039 


« 




103B 




108D 




108F- 


■1097 


109A- 


109C 


109F- 


10A3 


10A5- 


10B7 


K 




a 




10AA- 


10AC 


« 




10AF- 


10B0^ 


1 B 1 ~ 


1173 


10B1- 


10B3 


■X- 





K « K K * a K X- * le K *:■ k * k ■« « x «■ * k k * x *:■ x x- -x « x- « k *;■ x x x *<■ « -x- x- x- x « « x x « * x x x x x x x- x x x « x x x x x x x x 
X X X X X X X X X X X X X X w X X X X SCREEN SCROLLING x x x x x x x x x x x x x x x x -x x x x x x x x x x x X x x- 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X^ X X X X X X X X X X X X X X X X X X X )( 

si.;^,, BY PETER CRACK 

T hi i 5 I.) e r- s i o n i s a s p r- i n t e d i n t hi e A N C b o o k - 
Set screen colour ■t$C«=brighit ness ,#**F=col our - 
Clear low-res - screen, IE-print "Vpace 'character <#$20) from 
$0C00-t0FFF , clear colour area from *'0800-*0BFF < #$00-f ore ground 
black) _ 

Print six lines of text, 18 characters per line- 
Top line of top group and top 1 ine" of bottom group - 
Bottom 1 ine of top group and bottom line of bottom group- 
Top line of middle (scrolling) group. 
Bottom 1 ine of middle (scrol ling ) group - 

Colour for middle <scrollin«g) group, as before #$2*~br ightness 
*$x6 = colour ■ Va lues for brightness range from *$0* to *^7-k and 
*$8* to #$F* for the same brighitness but flashing, in the same byte 
colour r" a n g e s f r" o m # $ « to t $ x F for c o 1 o u r , t o explain and 
demonstrate:- try putting **a9 into $1057-.>1056 A9 A9 LDA **A9- 
Clear" $D0 and $DB remember 'X' register- was set to zero in $1015 
and not changed since- 

Set new inter up t routine (used only once ) . 
Start of main routine- 

*$FD==JOY ( 1 ) , *$FA=J0Y(2 ) or maybey the other way around,! never can 
r e m e m ti e r~ ! - 

Get Joystick return - 

Keyboard latch !M-*FF09 contains Joystick values in inverse logic, 
that is to say , if Joystick is moued then the bit which registers 
the movement is set to zero IE:~ 
EIT NUMBER 76543210 
BIT VALUE 11111111 
All bits set to 1 or h i g h = . j o y s t i c k not m ci u e d 
Bit = Joystick mo '•.> e d up 
Bit 1 = Joystick m o i.j e d d o w n 
Bit 2=0 Joystick moved left 
Bit 3 = Joystick m ■:> u e d r i g h t 
Bit 7 = ^joystick fire button pressed 

Bits 4,5 and 6 not used for ^i '5 y s t i c k r- e t u r n s , C M M D R E S Joystick 
return -<BASIC RJOY(x)> can be viewed at $BFC1-$BFFC in ROM, routine 
at *BFFD-*BFEC flips (invert with 'EOR' command) all bits and then 
evaluates to give 'CORRECT' returns of 0"-8 for direction and adds 
DEC 128 if fire button was pressed . Unfortunately this , COMMODORES , 
.routine is not very accurate when moving diagona ly or moving and 
firing at the same time, (or else my Joystick is at fault! )- 
Clear 'X' register- 
Discard up and down bits. 

Check move left and decrease ' X ' register if s o - 
Do the same for move right. 

Transfer 'X' register to accumulator and add present movement 
speed, register . 

Chieck against speed limits at $1083 an'd $1087 discard if tc^o fast 
e i t hi e r left or r- i g h t ( n e g a t i i.) e or p o s i t i (.j e speeds)- 
Update speed register if v a lues within limmits- 
A n "d f o r c e b r a n c h t o $ 1 6 8 - 

Disable interupts, reset $0314/$0315 to point to your new routine. 
Set i n t e r" u p t r~ e g i s t e r- to request i n t e i- u p" t s from raster p o s s i t i o n - 
Clear $DA (end of line pointer) and $D9 (scroll counter). 
Set first raster inter upt possition,this is the start of the 
screen scroll area -screen raster possitions run from *$00 to *$C8 
*$C9-*$FF cannot be seen , (or used I think ) . 

Set horizontal scroll possition to zero, and, by clearing bit 3, of 
$FF07 reduce screen from 40 columns to 38- 
Clear i n t e r u p t disable ( o p [:' o s i t e > ■:> f $ 1 ^■'i and r e t u r^ n 
Main r" in u t i n e f ci r m o t.' i n g c e n t r- e ( s c r- o 1 1 i I'l g*? text 

Wait here until you r i I'l t e r u p t routine has placed a n o n - z e r o value 
into $D£! CONTINUED 
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JV K H K (V K -K K K K 



Jt K -K -K -K K K -K -K K It '« "A" A R K « W "« K W "K « 'it K W « W Jt "A" It "ft ft It * « ■« 



t0B9-10BC 
* 

10BE: 

10EF-10C1 

10C3 

10C4-10C8 

It 

E 

I0C9 
10CB-10D9 

t 

( 

:«^e0-10EB 



'e*? 



L^- 



10F7 



10F9 



f^^ f \^% 

i-1132 

■~1135 
'^1133 

.3^-1172 



Clear $DE , this is to ensure that no text is scrol led until screen 
raster beam has moMed away from scrolling area- 

-Load -last -scroll position < *D9 ), add speed register ($D0),this sum 
bec'zfmes new amount of scrolling required to ma inta in , increase or 
decrease scrolling speed.' ■;: ^\, ' _'/■ ,_ 

Transfer accumulator to 'Y' register for safekeeping 
Discard all but'the rightmost three bits in accumulator and store 
in tD9,this is now the new scroll position for the screen. 
Transfer the 'Y' r-egister- back t'? the accumulator 

Check to see if bit three is set (does the text need to be moved 
one character square left or right) if 'yes' then branch to $10C9 
else return from subroutine- 

Load 'X' register with the number of screen lines to be scrolled. 
Set $D2,$D4 to start address (high byte) of scrolling area (char 
ram) , set $D6,$DB to same for colour area .Set tDl to point to start 
address (low byte) of the left hand end of the line directly aboue 
s c r' o 1 1 i n g area. 

Transfer ' Y' register to accumulator , remember ' Y' register still 
contains the result of the addition of $D9 and $D0 $10B9-$10EC. 
Is it positive or negative EG. 0-126 or 128-255 EG. *$00-*$7F or 
*$FF-*$80 (in this case we want to know do we have to move right 
one character or left one character. 
Move left routine 

Load 'Y' register with *ifcFF=dec-l , this is so that at $10FB when 
the ' Y' register is increased by one it starts at zero (#$FF) . 
Load preset $D1 register,adi:I *$28 (dec 40) to move it dciwn one 
line to the start position of scrolling area, store it in $D1,$D3, 
*D5 and $D 7, these are the low bytes of the start points for 
character" and colour" of the scrolling areas*. 

Check to see if this addition has rolled $D1-$D7 over *$FF(dec255) 
thus setting the carry flag, if 'yes' then increase $D2,$D4,iD6 and 
$D8, these are the rlevant high bytes of the start addresses. 
Increase $D3 and $D7 low bytes of character and colour addresses 
to point to the character one to the right of start addres 
Increase 'Y' register C $10FB-$1 104 ) move one line routine- 
Load character one to right of start point (for this line) '■ offset 
by ' Y' register . 

Store this character in start point (for this line) offset by 'Y' 
register. 

Load colour of character one to right of start point (for this 
line), offset by 'Y' register. 

Store it in start point (offset by 'Y' re gist er). 

Is the whole line done? , no , wel 1 branch to $10FB else..... 

Are all the lines done? , no , then branch to *10DE else 

Store ' Y' register in $DA ( ' Y' register now = *$27 = end of line) and 

force branch to $113C. 

As atiove but move right one character - 

Load 'Y' r-egister with offset **26 (pi^ints to one char-acter to the 

left of right hand side of the screen scrolling area- 

Load $Dl,add *$28 and set $D1~$D7 as before. 

Reijerseofroutine at $10FC~$1102. 

Load character at the right hand end of the line (all loading and 

storing is offset by the 'Y' register) 

Store it in the character position which is 

although you can only see 38 cl-iaracter-s per 

still be used. 

Do the s a iri e for colour data. 

Do it for the whole line. 

Do it for all the scrol 1 ing lines . 

Clear $DA,the previous command ensures that 

point will always=*$00. 

This routine takes the end (hidden) character from one side of the 

screen a ri d puts it at t hi e ci t h e r end ( |-i i d d e tj ) , t h e value in *£ D A is 

either 41^00 or *$27 depending wether you are scrol 1 ing left or 

right respectively CONTINUED 



hidden. Remember, that 
screen line 40 can 



register" at t l"i i s 



113C 
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. 1140- 
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* 




114E- 


-115B 


« 
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115D- 
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« 




« 




*f 




* 




« 




« 




# 




* 




1161 




1163 




1165 




1167 




1169 




116B" 


•116D 


« 




M 




116F- 


-1170 


1173- 


■119E" 


*e 




# 




« 




«■ 




* 




1173- 


■1176 


1179 




* 




117C 




* 




* 




ii 




117E 




1180 




1182 




1184- 


1188 


^ 




X 




USA 




118C 




H 




« 




118F 




* 


. 


« 




« 




# 




* 




» 




1191- 


1194 


X 




*f^ 




ft 




1196 




X 




:^(- 




* 




>)(- 





Load 'X' register with the number of lines to scroll 
Load -'Y' -register with *DA,that is *$00 or *i27 depending on 
direction of scroll . 

Set *D2,$D6,$D1 and $D5 to point to start, of line directly ahoue 
first line of scrolling area for characters and colour- 
Add *$2B (in effect inoye one line down lo-res screen) to $D1 and 
*D5, check if they haue rolled oyer ^*$FF or dec 255 if yes then 
increase $D2 and iD6- V .; ^ -^ \ 

This is the tricky bit, because we have now, to set 'Y' register to 
point to the character which has Just itioued into the hidden column 
of the screen C$DA is set to point to the other end) we- know only 
two value are correct *$00 is the left end and *$27 is the right, 
we could use two separate routine but, to save space this method 
is better , first transfer a copy of ' Y' register to the accumulator 
create a mask number, (command EOR *$27) flip the relevant bits in 
the accumulator and store the new result back into the 'Y'register 
see figl for explanation of EOR command- 
Load a character from this line offset by 'Y' register- 
Store it in. a temporary register <$DC). 

Load colour data for same character offset by 'Y' register- 
Load 'Y' register with $DA (opposite end of line). 

Store colour data back into screen offset by new 'Y'register value 
Do the same for character, at this point the same character will 
appear at both ends of the screen 1 ine , IE-column and column 40 
but, as both these columns ^re hidden it does not matter- 
Do thesamef or allth elines- 

this is the new inter upt routine, this routine does not service 
$CE0E,in other words the keyboard and all other input/output 
routines including checking and decreasing sound counters (note 
duration ) is ignored therefore the only way to stop this programme 
is to press the reset button or run/stop and reset buttons 
together- 

Read and clear inter upt register (register cleared by STA command ). 
Load 'X' register with last position whre you wanted to request an 
interupt - 

Load accumulator with #$40 , why this value was chosen I do not know 
the important thing is t^lat the four r^ightmost bits ar-e set to 
zero so the four leftmost could be any value, as later on they 
willbediscarded- 

was this interupt requested at the bottom of scroll area?- 
If yes then branch to illBA. 

if no then mix the value of *D9 into the accumulator- 
Load 'X' register with bottom of scroll area, store it in $DB,(this 
will ensure that the routine at $11B1 will be carried out) and 
branch to tll8C. 

Load 'X' register with top of scroll area- 

and store it in raster comparison register- (this register will 
r'equest an inter upit ever-y time the raster beam reaches the 
position set in it) - 

Discard all but the rightmost three bits of the accumulator, 
remember the accumulator hi o 1 d s the s u ;ti of value placed into it at 
$117C anid the value mixed into it at $1182 and has not been 
changed until now, the screen can only be offset 8 pixel points to 
the right and the values 0-7 are the maximum combination of values 
obtained from 3 bits and it is the 3 rightmost bits of $FF07 that 
control 1 this screen offset - 

Halt progf-amme e;;eirution here if thie r- aster- beam position value is 
the same as the raster comparison va iue - ( We do not want another 
interupt until this one is finnished!!! because the computer will 
probably lock up)- 

Set the screen offset-$FF07 also controls other actions lE:- 
bit 3-0-38 columns, bit 3=1=40 columns, bit 4=0=MCM mode off, 
bit 4=:1=MCH mode on, bits 5-7 control 1 freeze mode(which means Just 
t [-i a t , b o t h screen and c ■:• m p u t e i- s w i t c hi o 'f f ) , F' A L / N T S C mode two t y p e r:i 
of TV. signal, CONTINUED. 
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w and reverse video mode respctively, these bits must all be set high 

*f" ' \- (set to 1) to be active, in this case we do not want any of theiii, 

1199-il9E These commands pull the old 'Y'^'X' and accumulator values off the 

* s t a c k , t h e last c o (Ti m a n d , R T I tells t l-i e c o m p u t e f" that an i n t e r u in t hi a s 
» Just been serviced and also acts as an RTS command, (return from 

* subroutine) to return controll to your main programme_This section 

* reverses the routine at $FCB3-$FCB7 and replaces $FCB3-$FCCS- 
119F-11EE Data for liries of te;;t,adid *$40 to each value to read messai^e 
Having read through all this do not , unless you are a genious, expect to 

U n d e r s t a ri d it in one go (I have had this b o ■ j k two years) Just c o m p' a r e t hi e s e 
Notes with the listing and go over it again and again and again etc- . - . zzzzz 
FIG 1. 
Accumulatof-7#$FF-Decimal255 

BITnunit-er 7 6 5 4 3 2 1 

BIT state 1 1 1 1 11 1 1 

BIT hex value 80 40 20 10 08 04 02 01 

BIT decimal value 128 64 32 16 8 4 2 1 

Explanation of command at $1 15E - - 

Accumulator=*$00 (zero) at start BIT state 00000000 

EDR (exclusive-OR) iiia5k = *$27 BIT state 00100111 

Accumulator after comparison BIT state 00100111 

EDR command flips (changes the state of) all the bits in the accumulator 
Whose twins had been set to one in the EOR mask-This is a rollover type 
Command and if used twice will return the accumulator to its previous value, 

THE FOLLOUING EXPLANATION REFERS TO MY VERSION OF THE SAME PROGRAMME LINES 
***************************************************#****** ******4(**#jt^^t^,f^f«.jf 

$1200-$ 1350 , only the main changes have been noted = 

1200-120C Set screen colour, set forground colour, clear lo-res screen. 

120F~121B Set tD0-$D3 to point to about middle of top line of screen. 

121D Set 'X' register with number of characters to print. 

121F-1239 Print 25 'A' characters down the screen , colour dark green. 

125D-1261 Speed limits reduced to prevent flicker on screen- 

127F-1281 Set start point of screen scroll area in this case top of screen™ 

1300-1306 Lower limit of scroll area (bottom of visible screen). 

130C Upper limit of scrolling area. 

1321-1333 Set number of lines to scroll in 'X' register, set $D1-$DS to left 

^ hand end of the line above the start point of the scrolling area - 

1334-134F Moves all the relevant pointers down one line- 

******************************************* ******************^(^(«#*^f^fjt^4(4f^««^ 
************************************* **********************^ti(9H(«4( It x*« ******* 

BOTH THE ANCO AND MY PROGRAMME ARE ESSENTIALY THE SAME MINE IS A LITTLE MORE 
OSCURE DUE TO THE USE OF SUBROUTINES WHICH REDUCES THE NUMBER OF LINES. 

***************************** ******************************^(^(^(^(#4fjfi(^^^f^f#^(^f#.)t 

How to use in your own pi r o g r" a m m e ? ? ? . 

***********************«************************«. )t *****«. je^f^fif^tx******* ******* 

That is of course up to you! . 

But here are two suggestions , first make the whole programme interupt 

Controlled entering at $1068 or, second and probably more practical , make 

It a subroutine entering at $1068 and leaving at $108D..In either case I 

Would suggest putting JMP$CE0E at $1199 so that a normal interupt can be 

Serviced, unless you would prefer to write your own keyboard etc-check. 

« '. 

^ ■'' ■ 

As always any problems ring me or better still wr-ite in to the magazins 

* 
* 

* , - -Good luck PETER 

********************************************««*********************«********•){ 
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'. 1012 
. 1015 
. 1017 

- 1019 
. 101C 

- 101F 
. 1022 

- 1025 
'. 1027 

- 102A 

- 102D 

- 1030 

- 1033 

- 1034 

- 1036 

- 1038 

- 103B 

- 103E 
. 1041 

- 1044 

- 1047 

- 104A 
. 104D 
. 1050 
. 1053 
. 1056 

- 105S 
. 105B 
. 105E 

- 105F 

- 1061 

- 1063 
. 1065 

- 1068 

- 106B 
. 106D 
. 1070 
. 1073 
. 1075 
. 1076 
, 1077 

1078 

107A 

107B 

107C 

107E 

107F 

10S0 

1081 

1083 

1085 

1087 

1089 

108B 

108D 

i08r 

1090 
1092 
1095 
1097 

109A 
109C 
109F 
10A1 
10A3 



8D 15 FF STA $FF15 
A2 00 LDX #$00 
A9 20 LDA #$20 
9D 00 0C STA t0C00,X 
9D 00 0D STA $0D00,X 
9D 00 0E STA $0E00,X 
9D 00 0F STA $0F00,X 
A9 00 LDA #$00 
9D 00 08 STA $0800, X 
9D 00 09 STA $0900, X 
9D 00 0A STA $0A00,X 
9D 00 0B STA $0B00,X 
CA DEX 
D0 El BNE $1017 
A0 12 LDY #$12 
B9 9F 11 LDA $119F,Y 
99 82 0C STA $0C82,Y 
99 2A 0F STA $0F2A,Y 
B9 B2 11 LDA $11B2,Y 
99 D2 0C STA $0CD2,Y 
99 7A 0F STA $0F7A,Y 
B9 C5 11 LDA $11C5,Y 
99 C2 0D STA $0DC2,Y 
B9 D8 11 LDA $11D8,Y 
99 62 0E STA $0E62,Y 
A9 26 LDA #$26 
99 C2 09 STA $09C2,Y 
99 62 0A STA $0A62,Y 



88 
10 D7 
86 D0 
86 DB 



DEY 
BPL $1038 
STX $D0 
STX $DB 



20 8F 10 JSR $108F 
20 Bl 10 JSR $10B1 
A9 FD LDA #$rD 
SD 08 FF STA $FF0S 
AD 08 FF LDA $FF08 



A2 00 
4A 
4A 
4A 

B0 01 
CA 
4A 

B0 01 
E8 
8A 
18 

65 D0 
C9 F7 
F0 El 
C9 09 
F0 DD 
85 D0 
D0 D9 
78 
A9 73 



LDX #$00 

LSR 

LSR 

LSR 

BCS $107B 

DEX 

LSR 

BCS $107F 

IHX 

TXA 

CLC 

ADC $D0 
CMP #$F7 
BEQ $1068 
CMP #$09 
BEQ $1068 
STA $D0 
BNE $1068 
SEI 
LDA #$73 



8D 14 03 STA $0314 

A9 11 LDA #$11 

8D 15 03 STA $0315 

A9 02 LDA #$02 

8D 0A FF STA $FF0A 

A9 00 LDA #$00 

85 DA STA $DA 

85 D9 STA $D? 



, :- 113A5 A9 5A 


LDA #$5A 




- 10A7 -8D 0B 


FF STA ■$FF0B 




-■ 10AA ^.A9 00 


LDA ' #$00 




-- 10AC^.eD 07 


FF STA $FF07 




' .-•-t0AF^ -5a 


■~v-CLI' 




"-r-l-0B0 ----60 ■ -. 


- -"'--RTS 




.i-l^Bl-'--A5--DB 


.-.*.- LDA $DB 




vVl-0Ba-:;.:F0 FC 


-■'BEQ $10B1 




v-^i0B5 ---A9-00 


---LDA #$00 




- 10B7" '65 DB 


:STA $DB 




. 10&9 A5 D9 


-LDA $D9 




\ 10BH;--18 


CLC 




- "10BC --65 D0 


-ADC $D0 




. 10BE --AS 


TAY 


■ 


- 10BF -29 07 


AND #$07 




- 10C1 85 D9 


STA $D9 




- 10C3 98 


TYA 




- 10C4 29 08 


AND #$08 




- 10C6 D0 01 


BNE $10C9 




- 10CS 60 


RTS 




- 10C9 A2 05 


LDX #$05 




- 10CE ■A9 0D 


LDA #$0D 




- 10CD 85 D2 


STA $D2 




- 10CF 85 D4 


STA $D4 




- 10D1 A9 09 


LDA #$09 




- 10D3 85 D6 


STA $D6 




. 10D5 85 D8 


STA $D8 




- 10D7 A9 90 


LDA #$90 




. 10D9 85 Dl 


STA $D1 




- 10DB 93 


TYA 




" 10DC 10 31 


BPL $il0F 




- 10DE A0 FF 


LDY #$FF 




■ 10E0 A5 Dl 


LDA $D1 




. 10E2 18 


CLC 




10E3 69 28 


ADC #$28 




10E5 85 Dl 


STA $D1 




10E7 85 D3 


STA $D3 




10E9 85 D5 


STA $D5 




10EB 85 D7 


STA $D7 




10ED 90 08 


BCC $10F7 




10EF E6 D2 


INC $D2 




10F1 E6 D4 


INC $D4 




10F3 E6 D6 


INC $D6 




10F5 E6 D8 


INC.$D3 




10F7 E6 D3 


INC $D3 




10F9 E6 D7 


INC $D7 




10FB C8 


INY 




10FC Bl D3 


LDA <$D3),Y 




10FE 91 Dl 


STA ($D1),Y 




1100 Bl D7 


LDA <$D7),Y 




1102 91 D5 


STA C$D5),Y 




1104 C0 27 


CPY #$27 




1106 D0 F3 


BNE $10FB 




1108 CA 


DEX 




1109 D0 D3 


BNE $10DE 




110B 84 DA 


STY $DA 




110D F0 2D 


BEQ $113C 




110F A0 26 


LDY #$26 




1111 A5 Dl 


LDA $D1 




1113 18 


CLC 




1114 69 28 


ADC #$28 




1116 85 Dl 


STA $D1 




1118 85 D3 


STA $D3 




lllA 85 D5 


STA $D5 \^'^^ 


e 6 D'L 


lllC 85 D7 


STA $D7 


i N C ^OZ 


HIE 90 08 


BCC $1128 

■ ru 1 ' J|. n K 


1^ . 



,t 



E6 D4 


INC $D4 


E6 D6 


INC $D6 


E6 t'S 


INC $DB 


E6 D3 


INC $D3 


E6 D7 


INC $D7 


Efl Dl 


LDA <$D1),Y 


91 D3 


STA <tD3),Y 


Bl D5 


LDA <$D5),Y 


91 D7 


STA ($D7),Y 


88 


DEY 


10 F5 


BPL tll2C 


CA 


DEX 


D0 D5 


BNE $110F 


86 DA 


STX $DA 


A2 05 


LDX *$05 


A4 DA 


LDY $DA 


A9 0D 


LDA **0D 


85 D2 


STA $D2 


A9 09 


LDA #$09 


85 D6 


STA $D6 


A9 90 


LDA *$90 


85 Dl 


STA $D1 


85 D5 


STA $D5 


A5 Dl 


LDA ^Dl 


IB 


CLC 


69 28 


ADC *$2S 


85 Dl 


STA $D1 


85 D5 


STA $D5 


90 04 


BCC $115D 


E6 D2 


INC $D2 


E6 D6 


INC $D6 


98 


TYA 


49 27 


EOR *$27 


AS 


TAY 


Bl Dl 


LDA ($D1),Y 


85 DC 


STA $DC 


Bl D5 


LDA <$D5),Y 


A4 DA 


LDY '^DA 


91 D5 


STA ($D5),Y 


A5 DC 


LDA $DC 


91 Dl 


STA <$D1),Y 


CA 


DEX 


D0 DC 


BNE $114E 


60 


RTS 


AD 09 FF 


LDA $FF09 


8D 09 FF 


STA $FF09 


AE 0B FF 


LDX $FF0& 


A9 40 


LDA *$40 


E0 83 


CPX #$83 


F0 08 


BEQ $11SA 


05 D9 


ORA $D9 


A2 83 


LDX #$83 


B6 DB 


STX $DB 


D0 02 


BNE *118C 


A2 5A 


LDX #$5A 


8E 0B FF 


STX $FF0B 


29 07 


AND #$07 


EC ID FF 


CPX $FF1D 


F0 FB 


BEQ $1191 


8D 07 FF 


STA $FF07 


68 


PLA 


AG 


TAY 


68 


PLA 


AA 


TAX 


68 


PLA 


40 


RTI 





DATA FOR ANCO 


AND Mr LiaT-I-N.G^ 

1 


>119F 


20 04 09 


05 13 05 'i2 


20 


>'l 1 A 7 


14 05 09 


0C 20 08 09 


05 


>11AF 


12 20 20 


20 20 20 02 


0C 


>11B7 


05 09 02 


14 20 13 14 


05 


>11BF 


08 05 0E 


20 20 20 16 


05 


>11C7 


12 13 03 


08 09 05 02 


05 


>11CF 


20 04 01 


13 20 08 09 


05 


>11D7 


12 0D 09 


14 20 05 09 


0E 


>11DF 


05 0D 20 


0A 0F 19 13 


14 


>11E7 


09 03 0E 


21 AA AA AA 


AA 


MIEF 


EA EA EA 


EA EA EA EA 


EA 


>11F7 


EA EA EA 


EA EA EA EA 


EA 




START OF 
A9 CF 


MY LISTING. - 




- 1200 


LDA #$CF 






- 1202 


8D 15 FF STA $FF15 






. 1205 


A9 00 


LDA 4$00 






- 1207 


8D 3B 05 STA $053B 






. 120A 


A9 93 


LDA #$93 






. 120C 


20 D2 FF JSR $FFD2 






- 120F 


A9 0C 


LDA #$0C 






. 1211 


85 Dl 


STA $D1 






. 1213 


A9 10 


LDA #$10 






- 1215 


85 D0 


STA $D0 






. 1217 


85 D2 


STA $D2 






. 1219 


A9 08 


LDA #$08 






- 121B 


85 D3 


STA $D3 






- 121D 


A2 19 


LDX #$19 






- 121F 


A0 00 


LDY #$00 






. 1221 


A9 01 


LDA #$01 






. 1223 


91 D0 


STA ($D0), 


Y 




. 1225 


A9 0F 


LDA *$0F 






. 1227 


91 D2 


STA C$D2), 


Y 




. 1229 


A5 D0 


LDA $D0 






122B 


18 


CLC 






122C 


69 29 


ADC #$29 






122E 


90 04 


BCC $1234 






1230 


E6 Dl 


INC $D1 






1232 


E6 D3 


INC $D3 






1234 


85 D0 


STA $D0 






1236 


85 D2 


STA $D2 






1238 


CA 


DEX 






1239 


D0 E6 


BNE $1221 






123B 


86 D0 


STX $D0 






123D 


86 DB 


STX $DB 






123F 


20 69 12 JSR $1269 






1242 


20 8B 12 JSR $128B 






1245 


A9 FD 


LDA #$FD 






1247 


8D 08 FF STA $FF0G 






•124A 


AD 08 FF LDA $FF0S 






124D 


A2 00 


. LDX #$00 






124F 


4A 


LSR 






1250 


4A 


LSR 






1251 


4A 


LSR 






1252 


B0 01 


BCS $1255 






1254 


CA 


DEX 






1255 


4A 


LSR 






1256 


B0 01 


BCS $1259 






1258 


E8 


INX 






1259 


8A 


TXA 






125A 


18 


. CLC 




CC 


NTINUE 
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.. 125B 


65 


D0 




ADC 


$D0 


12D7 


20 


21 


13 


JSR 


$1321 


■ 125D 


C9 


FB 




CMP 


*$FB 


12DA 


A4 


DA 




LDY 


$DA 


- 125F 


F0 


El 




BEQ 


$1242 


12DC 


20 


34 


13 


JSR 


$1334 


_ 1261' 


C9 


04 




CMP 


*$04 


12DF 


98 






TYA 


■ 


. 1263 


-F0 


DD 




EEg 


$1242 


12E0 


49 


27 




EOR 


*$27 


- 1265 


S5 


D0 




STA 


$D0 


12E2 


A8 






TAY 




_ 1267 


D0 


D9 




BNE 


$1242 


12E3 


Bl 


Dl 




LDA 


($D1),Y 


. 1269 


78 






SEI 




12E5 


85 


DC 




STA 


$DC 


. 126A 


A9 


F5 




LDA 


*$F5 


12E7 


Bl 


D5 




LDA 


($D5) ,Y 


- 126C 


8D 


14 


03 


STA 


$0314 


12E9 


A4 


DA 




LDY 


$DA 


- 126F 


A9 


12 




LDA 


*$12 


12EB 


91 


D5 




STA 


($D5),Y 


. 1271 


8D 


15 


03 


STA 


$0315 


12ED 


A5 


DC 




LDA 


$DC 


. 1274 


A9 


02 




LDA 


*$02 


12EF 


91 


Dl 




STA 


C$D1) ,Y 


. 1276 


8D 


0A 


FF 


STA 


$FF0A 


12F1 


CA 






DEX 




- 1279 


A9 


00 




LDA 


*$00 


12F2 


D0 


E8 




BNE 


$12DC 


. 127B 


8 5 


DA 




STA 


$DA 


12F4 


60 






RTS 




- 127D 


85 


D9 




STA 


$D9 


12F5 


AD 


09 


FF 


LDA 


$FF09 


. 127F 


A9 


00 




LDA 


*$03 


12F8 


8D 


09 


FF 


STA 


$FF09 


. 1281 


8D 


0B 


FF 


STA 


$FF0B 


12FB 


AE 


0B 


FF 


LDX 


$FF0E 


■ 1284 


A9 


00 




LDA 


*$00 


12FE 


A9 


00 




LDA 


*$00 


- 1286 


8D 


07 


FF 


STA 


$FF07 


1300 


E0 


CA 




CPX 


*$CA 


- 1289 


58 






CLI 




1302 


F0 


08 




BEQ 


$130C 


. 12SA 


60 






RTS 




1304 


05 


D9 




ORA 


$D9 


. 128B 


A5 


DB 




LDA 


$DB 


1306 


A2 


CA 




LDX 


*$CA 


. 128D 


F0 


FC 




BEQ 


$128B 


130B 


86 


DB 




STX 


$DB 


- 128F 


A9 


00 




LDA 


#$03 


130A 


D0 


02 




BNE 


$130E 


. 1291 


85 


DB 




STA 


$DB 


130C 


A2 


00 




LDX 


*$00 


. 1293 


A5 


D9 




LDA 


$D9 


130E 


8E 


0B 


FF 


STX 


$FF0B 


. 1295 


18 






CLC 




1311 


29 


07 




AND 


*$07 


. 1296 


65 


D0 




ADC 


$D0 


1313 


EC 


ID 


FF 


CPX 


$FFiD 


. 1298 


A8 






TAY 




1316 


F0 


FB 




BEQ 


$1313 


- 1299 


29 


07 




AND 


*$07 


1318 


8D 


07 


FF 


STA 


$FF07 


- 129B 


85 


D9 




STA 


$D9 


131B 


68 






PLA 




- 129D 


98 






TYA 




131C 


A8 






TAY 




- 129E 


29 


08 




AND 


t$08 


131D 


68 






PLA 




. 12A0 


D0 


01 




BNE 


$12A3 


131E 


AA 






TAX 




_ 12A2 


60 






RTS 




131F 


68 






PLA 




. 12A3 


20 


21 


13 


JSR 


$1321 


1320 


40 






RTI 




, 12A6 


98 






TYA 




1321 


A2 


19 




LDX 


*$19 


- 12A7 


10 


19 




BPL 


$12C2 


1323 


A9 


0B 




LDA 


*$0B 


, 12A9 


A0 


FF 




LDY 


*$FF 


1325 


85 


D2 




STA 


$D2 


- 12AB 


20 


34 


13 


JSR 


$1334 


1327 


85 


D4 




STA 


$D4 


. 12AE 


C8 






INY 




1329 


A9 


07 




LDA 


*$07 


. 12AF 


Bl 


D3 




LDA 


C$D3) ,Y 


132B 


85 


D6 




STA 


$D6 


. 12B1 


91 


Dl 




STA 


($D1) ,Y 


132D 


85 


D8 




STA 


$D8 


■ 12B3 


Bl 


D7 




LDA 


($D7) ,Y 


132F 


A9 


D3 




LDA 


*$De 


. 12B5 


91 


D5 




STA 


($D5) ,Y 


1351 


85 


Dl 




STA 


$D1 


. 12B7 


C0 


27 




CRY 


#$27 


1333 


60 






RTS 




. 12B9 


D0 


F3 




BNE 


$12AE 


1334 


A5 


Dl 




LDA 


$D1 


. 12BB 


CA 






DEX 




1336 


18 






CLC 




. 12BC 


D0 


EB 




BNE 


$12A9 


1337 


69 


28 




ADC 


*$28 


, 12BE 


84 


DA 




STY 


$DA 


1339 


85 


Dl 




STA 


$D1 


. 12C0 


F0 


15 




BEQ 


$12D7 


133B 


85 


D3 




STA 


$D3 


. 12C2 


A0 


26 




LDY 


*$26 


133D 


85 


D5 




STA 


$D5 


. 12C4 


20 


34 


13 


JSR 


$1334 


.i33F 


85 


D7 




STA 


$D7 


. 12C7 


Bl 


Dl 




LDA 


($D1) ,Y 


1341 


90 


08 




BCC 


$134B 


- 12C9 


91 


D3 




STA 


($D3) ,Y 


1343 


E6 


D2 




'iNC 


$D2 


■ 12CB 


Bl 


D5 




LDA 


<$D5) ,Y 


1345 


E6 


D4 




INC 


$D4 


. 12CD 


91 


D7 




STA 


($D7) ,Y 


1347 


E6 


D6 




INC 


$D6 


- 12Cr 


88 






DEY 




1349 


E6 


D8 




INC 


$D8 


. 12D0 


10 


F5 




■ BPL 


$12C7 


■ 134B 


E6 


D3 




INC 


$D3 


- 12D2 


CA 






DEX 




134D 


E6 


D7 




INC 


$D7 


- 12D3 


D0 


ED 




BNE 


$12C2 


134F 


60 






RTS 




. 12D5 


86 


DA 




STX 


$DA 


. 1350 


EA 






NOP 
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F-QR SALE Si V/yVMTrED F^AOE 
\^yA^J•T'EP: — 

Would like to buy, DISK DRIVE, Model 1551, Any-Offers ? 

Ring 0493-730963, and ask for Kevin or write to Kevin at: - 

Kevin Williams, 10 Hickling Way, Ormesby St Margaret, Gt Yarmouth, NORFOLK, 

NR29 3SE. (Kevin, do you still want this ad in, call me please, THANKS!!) 

V/AraTEO: — 



Any old Broken/Working C16/+4 harware, ie, Joytsicks, tapedecks, D/D etc, 

must be cheap, please contact: - 

Roy Robinson, 112 Cliff Road, HORNSEA, N. Humberside. HU18 IJE. 

Tel (0964) 534611 

FOR SAL.E: — 

C16/Plus/4 Printer Service. 

Have you got Programs, Letters etc you want printing, but cannot afford a 

printer? 

Well worry no more because C16/Plus/4 Printer Service is here! We can print 
out Basic Files from tape or disk, Basic programs saved with Turbo-Plus. 
Wordprocessor programs from 3+1 or Script-Plus. We can also print high/low 
res Graphic dumps from your programs (NOT PROTECTED COMMERCIAL ONES), 

This service is exclusive to members of this Club and it costs only 60p for 
the first copy and 15p for any other copies there after. This price 
INCLUDES return postage and packing. 

Please send your tape/disk in a jiffy bag/disk mailer along with money and 

amount required to; - 

Plus/4 Printer Service, Daniel Stokes, 35 Burleigh Way, CUFFLEY, Herts, EN6 

4LG. 



F-QR SAJL.E: — 

C64, Datarecorder, PSU, Loads of games too many to mention here. Contact: 
Mi- W.D.Brighton. 55B Occupation Lane, SHEFFIELD, SI2 4PS. 

Telephone 0742-541046 

u?Ai<rnrED: — 

3764 RAM CHIPS OR 4164 RAM CHIPS OR 4554 RAM CHIPS, I need 8 of any of the 
listed chips, I will pay £5 for them, desoldered etc, contact: John Hadlow, 
Showground, Buchan Park, Greendykes Road, Broxburn, W. Lothian, SCOTLAND. 
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